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14-Sep-19 14:1 DISKSVMSMASTER: CCOPY. SRCICOPYCLI. B32. 79° (1 
; 1 1 MODULE copycli ( ! Declarations of CLI data structures for the COPY command 
3 § § LANGUAGE BL 155 2), 
3 0 IDENT = ‘v04-00 
3 & 0004 )= 
3 5 8282 BEGIN 
RS. $07 1: | 
: 3 008 } i eeeeeeeeeereeeeeeeeeeneeeeeneeeeerereeereeeeeeeeeeeeeeeeeeeeneeeeneeeeeeees | 
3 'e * 
; 10 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
. 011 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; \¢ B38 ! is ALL RIGHTS RESERVED. : 
: #14 0014 1 is ruts SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
. > a 0015 1 !# Y IN ACCORDANCE WITH THE TERRS OF SUCH LICENSE AND WITH THE * 
; (616 Bog 1 !e ON NEL USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 17 001 1! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i eid : TRANSFERRED. . 
° ; tr 
3 21 O53 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: $s 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | 
3 Si 8 Z : ie CORPORATION. . | 
: 25 0025 1 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: $8 4 $ : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; | 
> 28 0028 1 is e 
4 $3 594 ; Ve ARREARS 
‘= 0031 1 !++ 
3 3 tT) 1! FACILITY: COPY 
; 3 $e 1! 
; 3 0036 1 This module contains all the routines for processing the COPY command 
- ar 0037 1 qualifiers. 
; 0038 1 
; HF 0039 1 ! ENVIRONMENT: 
s 60 0040 1 : 
$ 41 0041 1 VAX/VMS eperating » Pp engratiages user mode utility, 
; $g 9k 1 operates at non-AST leve 
3; «6 0043 1 
3 (44 044 1 
; 2 a 
: 4 0047 ' AUTHOR: Carol Peters, CREATION DATE: 28 April 1978 07:36 
; 49 a3 | {| REVISION HISTORY: | 
> (51 051 1 v3-003 1sk0005 Tamar Krichevsk ky 9-FEB-1984 | 
; 26 036 1 Change addressing mode for LIBSCVT_DTB and LIBSLOOKUP_KEY 
: 2 pez ! to general. | 
: 55 55 1 v3-002 TSK0002 Tamar Krichevsky 10-Aug-1983 | 
; 28 B26 1 Fix default for /PROTECTION qua ivjer so that if fields which 
A... 057 1 ad not been specified are left alone | 
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TSK0001 Tamar Krichevsky 18-Jan-1983 
ea he Oe penny Change Command Language Interface over 

Cu eate two global routines: COPYSGET aa QUAL 
Fy copy GET COeAL QUAL. These routines simulate” s Of the 
CLI so that COPY/QOAL a,b/NOQUAL,c * and COPY a,b/ BOUALS c */ QUAL 
behave the same. 


Add the common qualifiers (/BEFORE, /SINCE, An Hd 
7BACKUP, /EXPIRED, /EXCLUDE, /BY OWNER AND /CONFIR 


TMHO003 T. Halvorsen 17-Nov-1979 
Add ¢legnup2_ desc for output parameter cleanup call. 


TMHO002 T. Halvorsen 25-Jul-1979 
Add relative volume placement control 
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Roponorofery 


Table of contents 


FORWARD ROUTINE 


copy$get global qual : NOVALUE, 


copy$get 
protection_parse 


parse_protection_value 


Include files 


Literals 


LIBRARY ‘SYSS$LIBRARY:STAR 
REQUIRE ‘SRC$:COPYMSG.REQ'; 


Descriptors for the 


verb_desc 
log_msg_desc 
concatenate_desc 
new_version_desc 
al location_desc 
contiguous_desc 
extension_desc 
file_max_desc 
protection_desc 
read_check desc 
write_check_desc 
overlay_desc 
volume_desc 
truncate_desc 
replace_desc 


Macros 


MACRO 


cal_qual : NOVALUE, 


NOVALUE, 
: NOVALUE; 


LET.L32°; 


Get local command 
Parse routine for 


4.0742 p 
OPY.SRCICOPYCLI.B32:1> (2 


Get rs command qualifiers 


ualifiers 
PROTECTION qualifier 


Parse the /PROTECTION keyword values (RWED) 


Common system definitions 


Put message macros 


qualifier names, used while parsing the command Line. 


See eee ter Oet ences oe 


SDESCRIPTOR('LOG') 
SDESCRIPTOR(* CONCATENAT 
SDESCRIPTOR('NEW VERSIO 
SDESCRIPTOR(' ALLOCATION 
SDESCRIPTOR(' CONTIGUOUS 
SDESCRIPTOR( "EXTENSION 
SDESCRIPTOR('FILE MAXIM 
SDESCRIPTOR( "PROTECTION 
SDESCRIPTOR('READ_CHECK 
SDESCRIPTOR('WRITE_CHEC 
SDESCRIPTOR("OVERLAY'), 
SDESCRIPTOR(' VOLUME") 
SDESCRIPTOR(' TRUNCATE *) 
SDESCRIPTOR( REPLACE’) 


These macros are all used in processing the /PROTECTION qualifier. 
! Extract a bit from a field definition 
! XABSW_PRO bit and mask definitions macros 


BIT_LOCATION( 


MASK 


MASK. DEF (L.B,S.K-DISE.S 


- B+D 


-% & 8 


a 
PROT_MASK(DISP,SIZE) = 

DEF (XABSW 
IZET 
ISP, SIZE, 


PRO,DISP,SIZE) %, 


3 
| 


copyen ISoseoctane 25:47:59 


3 1335 1g 1! 

ee 1 1 ! External declarations 

s 135 1461! 

y 15 1 

: F 1 1 EXTERNAL 

; #138 1 1 copyteret.. value, 

3; 139 1 copy$cli_Status : SBBLOCK, 
; 140 1 1 copy$sem_ status : SBBLOCK 
> «(141 0 1 : 

; a 7c 2 

s 14 0 g 1 REQUIRE 

> (146 0 1 *SRC$:COPY.REQ'; 


! Protection keyword value table 
Results of the command Line parse 
! Semantics for copy operation 


cipal astn'apl iimmoesitinantalatens aa 


$-32_ V4.0-742 4. 
TER: CCOPY.SRCICOPYCLI. 832; (2) 


! Field definitions for COPY$CLI_STATUS and COPYSSEM 


Y -Sep-1984 VAX-11 Bliss<-32 V4.0-742 Pa 5 
y04 2000 1$-sen-1984 $3125 £38 _§255$ i h2 :CCOPY.SRCIVMSMAC.REQ;1 ne aed 
3; SPRINT: File: VMSMAC.B32, Version V04-000, Edit 1, wwWwC, 09-JAN-1978 


a 


@_pars 
Mag 


“2 


1b-sep-1 


14-Se 


G_MODE (GENERAL), 
ING MODE (GENERAL) ; 


pa19be 12:16:17 


32 V4.0-742 
R:CCOPY.SRCICOPYCLI. B32: ys (2 


' Determine if a qualifier —— on the command Li 
' Retrieve the qualifier’s valu 
! Parse the common file qualifiers 

! Convert String to binary 

! Library keyword Lookup routine 


=1984 23:37:50  VAX-11 Bliss-32 vé.0-742 p 
pry8ee Fates | peeekdnGAA Sens chbeo ene acopyeis 3264" 


' 
Global variables 


WSIS 
NOW 


GLOBAL 


i The following variables hold the current qualifier and option values gathered during the 
! CLI processing. These values oey change as local qualifiers are parsed. The globa 
: values are stored in COPYSCLI_STATUS. 


APOAOAOOU 


~s 
SISKRANVSS SISAL S Se 


common_qual_context, 
curr_allocafion_value, 
curr_extensicn_value, 
curr_file_max_value, 
curr _protection_or 


CK 
INITIAL (REP 2 OF BYTE (0)), 
curr_protection_and : 


LOCKE 
INITIAL (REP 2 OF BYTE (-1)) 
curr_volume_value  : INITIAL (05 


Common qualifier data area 
Binary allocation value 
Binary extension value 
Binary file maximum value 
Protection mask to set bits 


Protection mask to clear bits 


Relative volume number 
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vo4~000 Va-$ep-1984 12:16:17 DISKSVMSMASTERSCCOPY.¢RCICOPYCLI.B32¢1° (4S, 


180 q GLOBAL ROUTINE COPYSGET_GLOBAL_QUAL: NOVALUE = ! Retrieve gloabl qualifiers from the CLI 
HG '4¢ 
! FUNCTIONAL DESCRIPTION: 


This routine retrieves the command level qualifiers from the 
Command Language interereter. It treats any qualifiers found 
as global, even if they are only locally present. This ensures 
tha qualifiers which appear on the output file have the same 
effect as ones which appear on the verb. 


SS SS 


Sette 


co 
SN 


FORMAL PARAMETERS: 


OOOOCOCCCCooCoooo 


SN NNN NSS NSS SSS 


None 
IMPLICIT INPUTS: 

None 
IMPLICIT OUTPUTS: 

COPYSCLI_STATUS = Relevant command and qualifier indicators set 
ROUTINE VALUE: 


SRUNISSELSSR SSIES 


WAI NII Wino nononononononornony 
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CHSFILL( 0, DSCS$C_S_BLN, cli_desc); 
cli_desc€ DSC$B_CCASS ) = DSCS$K_CLASS_D; 


761 
: Retrieve the verb from the command Line. Determine if it is a COPY or APPEND command. 


CLISGET_VALUE( verb_desc, cli_desc); 
CH RCHAR( .cli_descl OSCSATPOINTER J) EQL ‘A’ 


BEGIN 


IF 
THE 


PIP IPIPIPIPIPRIPYPIPIPINAIMIPININIPINDPIPINIAY a nn i kk tk td td 2 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
06 0 None 
07 0 
08 073 SIDE EFFECTS: 
09 074 
10 074 None 
11 074 
\¢ 074 —_ | 
1 074 
14 074 BEGIN 
15 074 
16 074 LOCAL 
1 074 common_qual_flags, ! Bits which select the common qualifiers to be pars | 
18 074 rtn_status, ! Status returned from external calls 
19 075 cli.desc : SBBLOCKC dsc$c_s_bln ] ! Dynamic string descriptor, points to values 
20 075 3 ! “returned from calls to the CLI 
1 075 
g 78 | 
¢ i t Initialize descri | 
! Initialize descriptor. 
26 75 ? | 
2 758 
8 759 
9 760 
31 76 
; 76 
7 
765 
5 76 


4 
1S-Sep-1964 25:47:50 VAKTT BLiss=S2 va.0n742 age 


3 7 76 

3 3 res ! It was an APPEND command. Set the append command flag and parse the APPEND 
3 770 ! specific qualifiers. 

: §2o of} te d 

3 append_comman = 

: 4g ae app _version_qual = ty gbresent< new_version_desc ); 

; 24 774 END™ 

3 44 775 ELSE 

8 45 ure BEGIN 

; ¢} ore It was a COPY command. Parse the COPY specific qualifiers. 

: 249 780 i /CONCATENATE, /TRUNCATE == Set the apropriate flags if the qualifier 
3 3} f 1 was given or "negated. 

; 3 , : SELECTONE CLISPRESENT( concatenate_desc ) OF 

: 254 785 4 C CLIS_PRESENT ] : BEGIN 

s 255 7 § 4 concat_qual = TRUE; 

: 28 Orb 4 ex LicTt concat_qual = TRUE; 

; 258 789 C CLIS_NEGATED } : negated. concat_qual = TRUE; 

3 +4 ory TES; 

: 61 0798 SELECTONE CLISPRESENT( truncate_desc ) OF 

: re 0794 C CLI$_PRESENT, 

3; 264 0795 CLIS_LOCPRES : truncate_qual = TRUE; 

; 265 B78 C CLIS_NEGATED : truncate_negated = TRUE; 

: $69 $798 _— 

; 68 0799 | ZOVERLAY and /REPLACE 

: 270 0801 over lay_ qual = CLISPRESENT( overlay_desc ); 

; 71 44 replace_qual = CLISPRESENT( replace_desc ); 

ie 

; rh 0808 ! /VOLUME 

: 27 td 4 IF (volume_qual = CLISPRESENT( volume_desc )) 

: 27 5008 3 THEN 

i BRE — 

; 30 galt 2 Get the value and and convert it from a string into binary. 
; e o31§ 4 cLiscer VALUE( volume_desc, cli_d 

: 28 ai 2 F NOT Trtn_status = CIBSCVT_DTB( an «hes cC DSCS$W_LENGTH ) 

3 Be 312 ? anes ae deScC DSCSA_POINTER J, Volume_ value)) 
; Bs 13 4 PUT _MESSAGEX( MSGS_INVQUAVAL, 2, cli_desc, volume_desc ); 
3 18 4 curr voTume_value = .volume_value; 

; 89 0 END; 

: 91 § : pores — quel it tors which are applicable to both commands. First 
: 3 n- qual Lifiers (/CONFIRM, /BEFORE, /SINCE, /EXCLUDE, /CREATED, 
; 29 0824 PMODIF IED. BACKUP, /EXPIRED, /6Y_OWNER) 


-1984 23:37:5 VAX-11 Bliss-32 V4.0-742 P 1 
aa 93:92:79 DISKSVMSMASTER:CCOPY.SRCICOPYCLI.B32:1>— (4 


' 
Initialize the flags longword so that all of the common qualifiers will 
be parsed. Then, parse the qualifiers. 
common_qual_flags = LIBSM_COF_CONFIRM OR ORE OR | 
& 
: 


0. 
| 


L 

SM_CQF_ L 

$M_CQF_MODIFIED OR L 

SM_CQF_EXPIRED OR L 

$M_CQF NER; 

IF NOT (rtn status = LIBSQUAL_FILE_PARSE( common_qual_flags, common_qual_context )) 
PUT_MESSAGEX( .rtn status ); 


LIBSM_CQF_SINCE 
LIB 
LIB 
LIB 


BYOWNE 


BSBIFARAVLOSO LEME 
DOOOCCOCCCOSOSCOCoOO 


SOD OA Pa OO DOS On 


/LOG, /READ_CHECK, /WRITE_CHECK and /CONTIGUOUS 


1 0 . | 
i OB4¢ log_msg_qual = CLISPRESENT( Log_msg_desc ); | 
\? Baee read_chk_qual = CLISPRESENT( read_check_desc ); 
1? oee$ SELECTONE CLISPRESENT( write_check_desc ) OF | 
7 0848 C CLIS_PRESENT, | 
18 34 CLIS“LOCPRES ) : write_chk_qual = TRUE; | 
1° Hs t3t a CLIS_NEGATED J] : write_chk_negated = TRUE; 
1 be2¢ write_chk_qual = CLISPRESENT( write_check_desc ); | 
5 + te4 SELECTONE CLISPRESENT( contiguous_desc ) OF 
5 0896 C CLIS_PRESENT, 
$ 085 CLIS_LOCPRES J] : contig_qual = TRUE; 
pe28 C CLIS_NEGATED J] : contig_negated = TRUE; 

Fa TES; 

0 0861 

; § /ALLOCATION 


if (alloc_quat = CLISPRESENT( allocation_desc )) 
BEGIN 
: Get the value and and convert it from a string into binary. 
CLISGET_VALUE( allocation desc, cli desc ): 
IF NOT Trtn_status = LiBstvt pfBC cf descl DSC$u LENGTH ‘ 
-cli_descC DSCSA_POINTER J, aTlocation_value)) 


THEN 
PUT _MESSAGEX( MSGS_INVQUAVAL, 2, cli_desc, allocation_desc ); 
gurrellocation.value = allocation. value; 


SewH 
00000 


> 


: /EXTENSION 
iF (extend_qual = CLISPRESENT( extension_desc )) 


Se Se Se Ge Se Ge Ge Be Ge Ge Ge Se Ge Fe Ge Se Ge Se Ge Se Ge Ge Ge Ge Ge Fe Se Be Ge Fe Ge Ge Ge FF Ge SF Se FH Se Be Se FS Se Se Se ee FHSS Se Ss Se Se Se Sees See 
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v4.0-742 
DISKSVMSMASTER: COPY. SRCICOPY CLI .B32; Pg cd 


THEN 
BEGIN 


Get the value and and convert it from a string into binary. 
cLiscer VALUE( extension desc 
IF NOT Trtn_status = LIBSCVT cbrBe. (ft yg BL DSC$W_LENGTH J, 

cli descl DSCSA_POINTER J, extension_ value)) 


EN 
PUT_MESSAGEX( MSG$_INVQUAVAL, 2, cli_desc, extension_desc ); 
curr wextension_value = .extension_value; 


: /FILE_ MAXIMUM 
if (filemax_qual = CLISPRESENT( file_max_desc )) 
BEGIN 
Get the value and and convert it from a string into binary. 
éLiscet VALUE( file_max gene. cli_des 
IF NOT Trtn_status = LIBSCVT_DTBC: “cli pie DSC$W_LENGTH J, 
cli sjesz DSCSA_ POINTER J, file_max _value)) 


THEN 
PUT_MESSAGEX( MSGS_INVQUAVAL, 2, cli.desc, file_max_desc ); 
curr. file_max_value = [file_max_value; 
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0 

bat¢ 
8 ade } /PROTECTION 
84 $918 iF (protect_qual = CLISPRESENT( protection_desc )) 
85 9318 THEN 
86 091 BEGIN 
87 gai8 
$e 4454 : Parse the keyword value and save the results. 
90 0921 lretnttten. parse(); 
91 09 § protection_and = (curr _protection_and); 
+4 94 ? protection. or = .(curr_protection_or); 
94 0925 END; ! routine COPYSGET_GLOBAL_QUAL 
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y Pas 


P.ABD: 
P.ABC 


OAs P.AAT: 


B 
OOB4 P.AAS: 
0088 
Bpes P.AAV: 
00C 
aoc P.AAU: 
3H P.AAX: 
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-LONG 3 
ADDRESS P.AAD 
eASCII \CONCATENATE\ 
et 1 
«LONG 11 
ADDRESS P.AAF 
eASCII = \NEW_VERSION\ 
-BLKB 1 
«LONG 11 
ADDRESS P.AAH 
eASCII \ALLOCATION\ 
-BLKB ¢ 
LONG 0 
ADDRESS P.AAJ 
eASCII \CONTIGUOUS\ 
-BLKB ¢ 
LONG 0 
ADDRESS P.AAL 
ASCII \EXTENSION\ 
-BLKB 3 
LONG 
ADDRESS P.AAN 
eASCII = \FILE_MAXIMUM\ 
«LONG 12 
ADDRESS P.AAP 
ASCII \PROTECTION\ 
-BLKB 2 
-LONG 10 
ADDRESS P.AAR 
eASCII = \READ_CHECK\ 
-BLKB 2 
«LONG 10 
eADDRESS P.AAT 
“ASCII \WRITE _CHECK\ 
-BLKB 1 
eLONG 11 
ADDRESS P.AAV 
ASCII \OVERLAY\ 
-BLKB 1 
-LONG 7 
ADDRESS P.AAX 
“ASCII | \VOLUME\ 
-BLKB 2 
eLONG 6 
“ADDRESS P.AAZ 
“TONG \TRUNCATE\ 
“ADD 


RESS P.ABB 
“ASCII \REPLACE\ 
-BLKB 1 
LONG 7 
-ADDRESS P.ABD 
~PSECT S$GLOBAL$,NOEXE ,2 


00000 COMMON QUAL CONTEXT: 
-BLRB 


$-32 V4.0-742 
STER:CCOPY. SRCICOPYCLI.B32; 


12 
(4) 


08 


00 


00004 CURR ALLOCATION. VALUE: : 
00008 cum EXTENS GN VALUE: 
0000C CURR_FILE MAX. VALUE: : 
00# 00010 CURR_PROTECTION_OR:: 
-BYTE “OC2] 
90012 -BLKB 
FF# 00014 CURR_PROTECTION_AND:: 
-BYTE ~-1(2) 


-BLKB 2 
00000000 boos CURR -VOLUME aay ts: 


15-00-1966 25:57:50 vAKeH! Btise=52 V4.0-742, Page 


VERB_DESC= P.AAA 
LOG_ASG DESC= P. AAC 
CONCATENATE_DESC=  P.AA 
VERSION-DESC= P.AAG 
ALLOCATION_BESC= AAI 
CONTIGUOUS DESC= ‘AA 
EXTENSION BESC= 7 
FILE MAX BDESC= P.AAO 
PROTECTION_DESC= P.AAQ 
READ_CHECK-DESC= “AAS 
ITE_CHECR_DESC= P.AAU 
OVERLAY_DEST= P. AAW 
VOLUME BESC= P.AAY 
TRUNCATE DESC= ABA 
REPLACE_DESC= P.ABC 
“.EXTRN COPYSMSG_ NUMBER 
-EXTRN COPYSPROT_VALUE 
“EXTRN COPYSCLI_STATUS 
“EXTRN COPYSSEM” STATUS 
-EXTRN CLIS_PRESENT, CLIS_NEGATED 
“EXTRN CLIS"LOCPRES, CLIS”LOCNEG 
EXTRN CLISPRESENT cLis ET _VALUE 
eEXTRN LIBSQUAL FILE PAR 
-EXTRN LIBSCVT_BTB, CIBSLOOKUP_KEY 
«PSECT SCODES,NOWRT,2 
OFFC 00000 ENTRY COPYSGET GLOBAL QUAL, Save R2,R35,R4,R5,R6,- 
RB g-R10 RI 
5B 000000006 00 9E 99002 MOVAB LIBSSfOP. RII 
3A 000 9006 0 9 6 MOVAB Lips IGNAL, R10 
9 06 CF 9E 19 MOVAB G NUMBER . R9 
38 00 G CF 9E 0001 MOVAB CLISPRESENT. Rg 
O° CF 9E OOOIA MOVAB — DESC 
6 00006 CF 3 1F MOV peri STATUS#4, R6 
E O¢ ¢ 4 SUBL 
6E a ¢ t MOV . (SP), #0, #8, CLI_DESC 
07 AE 05 0 MOVB cul presces 
94 AE F PUSHAB (CLI arts 
FF20 ¢ F PUSHAB VER bese 
0000G CF FB 039 CALLS a CLISGET VALUE 


759 
764 
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COPY 1b-se -1984 23:37:5 VAX-11 Bliss-32_V4.0-742 Page 14 
yO4 060 1a-Sep 1382 93:97:29 DISKSVMSMASTER: LCOPY.SRCICOPYCLI.B32:1" (4) | 
41 BF 08 BE 91 i MPR ACLI_DESC#4, 465 + 0765) 
FC AG 01 H 4 BISB2 #1, COPYSCLI_STATUS : 113 
een 4 eC he 
FC AG 01 4 002? ‘i 030 INsV RO. #4, #1, COPYSCLI_STATUS ; we 
gp OE FRE Bue Scare es _ 
000000006 8F 2 of O9e0 CHL RO, #CLIS_PRESENT * 0785 
00006 CF 1 : 9069 BISB2 #1, COPYSSEM_STATUS : 078 
FC AG 4 Ge ISB #4, COPYSCLI~STATUS : 787 
000000006 8F 30 D1 a974 2$: CHPL RQ. #CLIS_NEGATED 3 0789 
FC AG 08 as 9070 BISB2 #8, COPYSCLI_STATUS : 
68 10 Ot Pe Books CAS, FTE TEBRE SENT ideas 
000000006 8F 53 Dt 09087 CHPL RO. #CLIS$_PRESENT : 0794 
000000006 8F 50 D4 00096 cHeL RO, #CLI$_LOCPRES ; 
01 AG 20 as 90099 4$: B1SB2 #32, COPYSCLI_STATUS+5 + 0795 
000000006 8F 50 D| 3 5$: cHPL RO. #CLIS_NEGATED + 0796 
01 Ab 40 BF ag OOA8 BISB2 #64, COPYSCLI_STATUS+5 ; 
68 ain & 00089 68: PUSHAB OVERLAY DESC _— 
66 01 07 50 6 SOBs INSV RO, ma COPYSCLI_STATUS+4 : 
68 20 0 Pe oosbe FUSHAB REPLACE DESC . on 
02 Ab 01 01 9) FO OOOBE INSV RQ, 1, #1, COPYSCLI_STATUS+6 : 
68 if PB bore hs a CLISPRESENT =e 
01 Ab 01 02 50 FB 0c9 INSV RO. #2, #1, COPYSCLI_STATUS+5 : 
6 50 34 OCF BLBC = RO. *O9$: : 
04 AE F 000D PUSHAB CLI DESC + 0813 
57? DD 000D PUSHL R : 
00006 CF 02 FB 00007 CALLS #2, CLISGET VALUE ; 
146 Ad 9F 0000C PUSHAB COPYS$CLI_STATUS+24 + 0815 
oC AE pp OODF PUSHL CLI_DESCT4 ; 
7 € AE 3¢ 0 Ee MOVZWL chIWDESC (SP) + 0814 
000000006 Q F E CALLS #3, LIBSCVT_DTB ; 
2 aa titie Oye OBYy craTos. be 
7 132¢ BF i O0r MOVZWL #49 3 -(SP) + 0817 
6 1 FB OOOF CALLS #1, COPYSHSG_NUMBER ; 
7E 00 50 1 7A OO00F EMUL #1, RO, #0, =(SP ; 
50 50 E 6 7B 001 EDIV #8. (SP)+, RO, RO : 
4 D1 001 CMPL = RO. #4 : 
16 13 001 BEQL : 
5 pd 10A PUSHL 7 : 
08 ac F 0010C PUSHAB CLI_DESC : 
0 po 10F PUSHL is : | 
7E 132¢ «68F «63C 00111 MOVZWL #4908, -(SP) : 


4 | 
COPY 15-Sep-1984 23:37:5 VAX=-11 Bliss-32 V4.0-742 Page 15) 
y04 050 127808- 1382 93:37:29 DISKSVMSMASTER: CCOPY.SRCICOPYCLI.B32: 1° (4) 
69 1 FB 116 CALLS #1, COPYSMSG_NUMBER : | 
0 DD 0011 PUSHL RO : | 
6A 4 Fe 118 CALLS #4, LIBSSIGNAL : 
4 1 11 BRB 8s : 
57 pp 120 7$: PUSHL R : 
08 AE F 001 PUSHAB cL1_DESC : 
go 1 PUSHL a : 
7E = 132 BF.3C (001 MOVZWL #4908, =(SP) ; | 
69 1 FB O012C CALLS #1, COPYSMSG_NUMBER : 
0 DD O01eF PUSHL RO : 
68 04 FB 131 CALLS #4 LIBS TOP : 
0000" CF 146 Ab 91 gs MOVL Coby CLI_STATUS+24, CURR_VOLUME_VALUE : 0818 
6E ore BF 3C 0013A 9$ MOVZWL #511, COMMON QUAL FLAGS + 0832 
000" CF 9F 0013F PUSHAB COMMON_QUAL_CONTERT + 0835 
04 AE OF O143 PUSHAB COMMON” QUAL “FLAGS : 
00006 CF 02 FB 00146 CALLS #2, LIBSQUAC_FILE_PARSE : 
52 50 D O148 MOVL RO, RTN_STATOS ; 
2A 3g E8 O014E LBS  RTN_STATUS, 11$ : 
DD 00151 PUSHL RTNTSTATUS : 0837 
69 01 FB 00153 CALLS #1, COPYSMSG_NUMBER : 
7E 00 50 01 7A 00156 EMUL ; #0, =(SP) : 
50 50 BE 08 7B 0015 EDIV #8. (SP)+, RO, RO : 
04 0 D1 0016 CMPL ~=sRO,, ; 
O¢ 13 0016 BEQL si : | 
2 od 00165 PUSHL RTN_STATUS : 
69 01 FB 90167 CALLS #1, ~COPYSMSG_NUMBER : 
50 DD OO016A PUSHL 3 
6A 01 FB 0016C CALLS #1, LIBSSIGNAL ; | 
OA 11 O1GF BRB 11§ : 
2 0D 00171 10$:  PUSHL RTN_STATUS : 
69 gi FB 00173 CALLS #1, COPYSMSG_NUMBER : 
0 DD 00176 PUSHL RO ; 
68 01 FB 00178 CALLS #1, LIBSSTOP ; 
FF2C C7 9F 00178 11$:  PUSHAB LOG_ C + 0842 
68 gi FB O017F CALLS #1, CLISPRESENT ; 
FC AG 01 01 0 FO 0018 RO, #1, #1, COPYSCLI_STATUS F 
CC A? 9F 001 PUSHAB READ CHE a > 0844 
68 gi rB 01 CALLS #1, ct PRESENT : 
66 01 00 0 FO 001 INSV RO #1, COPYSCLI_STATUS+4 ; 
EO A? OF 019 PUSHAB WRITE CHECK_DE + 0846 
68 9 FB 00196 CALLS #1, CCISPRESENT 3 
000000006 8F 9 D1 00199 CMPL =o RO. #CLIS_PRESENT : 0848 
09 13 001A0 BEQL 128 F 
000000006 8F Q pj 142 CMPL RO, #CLIS_LOCPRES ; | 
1A BNEG 13$ : | 
66 8 148 128: B1SB2 “8, COPYSCLI_STATUS+4 ; 0849 | 
000000006 8F D| 186 138: CMPL RO, #CLIS_NEGATED : 0850 
0 j 1B BNEG 14$ ; 
66 1 é 1B9 BISB2 #16, COPYSCLI_STATUS+4 : | 
EO A? 9F OOIBC 148: PUSHAB WRITE CHECK ; 0852. 
6 gi FB 1BF CALLS #1, CCISPRESENT ; 
be 01 0 g F ee INSV RO, #3, #1, COPYSCLI_STATUS+4 : | 
FF7C 9F OO1C PUSHAB CONT 1 GUUS > 0854 | 
4 1 Fe 1¢B CALLS #1, CLISPRESENT ; | 
000000006 &F 9 D Ice CMPL RO #CLIS_PRESENT > 0856 | 
13 0010 Bea. 4=s«d:5$ : 


ue 
oo 


] 
4 | 
15-Sep-1984 23:37:5 VAX-11 Bliss<-32 V4.0-742 Page 16) 
12-808 =} 380 93:97 33 DISKSVMSMASTER: CCOPY.SRCICOPYCLI.B32: 1° (4) | 
000000006 8F 0 107 cMpL RO #CLIS_LOCPRES : | 
FE Ab : 166 15$: B1SB2 ' , COPYSCLI_STATUS+2 ; 0857) 
000000006 8F 0 D| 166 16$: cMPL RO, #CLIS_NEGATED ; 0858 
FE Ab : as 1EF BISB2 #16, COPYSCLI_STATUS+2 : 
pF GT FATT 17H BRM LOCA OL DEE tones 
0 0 i 1FA INSV RO, #0, #1, COPYSCLI_STATUS+2 ; 
- 04 Ag oF 0 03 PUSHAB ef ors + 0870 
FOS C2 OF PUSHAB ALLOCAT [ON DESC : | 
00006 CF 2 FB OO20A CALLS # cLISGET VALU : 
BC ORE. ob O05t2 PUSHAB COOVSELI STATUS¢ _—s 
7E 0c AE ee 00 i8 MOVZWL cL IDESC -(SP) + 0871 
a Bb ep RAS aa HEBEL LP eS 
2g 52 5 8 3 LBS §_ RTN_STATUS, 19$ : | 
7E 132 6BF 63C 00226 MOVZWL #4908, -(SP) + 0874 | 
4 bt PR OOSSE CALLS” 81. COPYSHSG_WUMBER eee 
BE 08 78 00 § EDIV #8. (SP)+, RO, RO : | 
04 50 D1 00238 CMPL RO. : | 
18 13 00238 BEQL si : 
FF68 C7 9F 0023D PUSHAB ALLOCATION_DESC : 
08 AE 9F 00241 PUSHAB CLI_DESC : 
02 pp 00244 PUSHL ; 
7E 132¢ BF «3C 00246 MOVZWL #4908, -(SP) : | 
69 gi FB 00248 CALLS #1, COPYSMSG_NUMBER : 
0 DD 0024 PUSHL : 
6A 04 Fe 00 ° CALLS #4, LIBSSIGNAL 3 
FF68 C7 OF 09 55 18$: | PUSHAB ALLOCATION_DESC : 
08 AE 9F 00259 PUSHAB CLI_DESC : 
02 pp b025¢ PUSHL : | 
7E 132¢ «BF 3c «(00 3E MOVZWL #4908, -(SP) : 
69 gi FB 0026 CALLS #1, COPYSMSG_NUMBER ; 
68 be PB OoSe8 Cee ee Liesstor : | 
0000" CF 04 Ab fi 0 68 19$:  MOVL COPYSCLI STATUS+8, CURR_ALLOCATION_VALUE 0875, 
sade ie SS tai | beet tte son 
oF 3 i f i” INsV RO, it #1, COPYSCLI_STATUS+#2 : 
04 A oF 80 PUSHAB CLI _DESC : 0887 | 
00006 cF 7 03 fe Chee Bo cer isees atu wae 
a eee im 
7E css RP 1 MOVZWL CLITDESC, -(SP) : 0888 | 
000000006 i i 93 CALLS 3, LiBs{vt 1B : | 
te 132c BF i RS BOVIuL RTA STATUS, 288 ; 0891 
69 1 FB 00 AG S #1, COPYSMSG_NUMBER : 


1984 $3i44: 


wo 
~ 


oer OOS on 


Sree “Mm wm 


oO 
be | 
OOM MAMMMMMOCVIVVOMNOOOoOOoWwww 


OOO NEMO 
&mowomwvom 


rr 
our 
PR 


7 
5 
F 
1 
0 
4 
; 
3 
F 
1 
0 
4 
6 
7 
1 
0 
0 
E 
A? 
Aé 
5 
0 
2 
F 
1 
1 
8 
0 
? 
7 
E 
2 
F 
1 
0 
4 
5 
7? 
; 
F 
1 
0 
4 
; 
1 


ROS NS VMN OO 19 MWS O09 SIN MMS MWS OMNOOM TOT NS WOOO 79 MWS OOO TIN 
DB ODIWN9 BFW MWD SPWOWOOWO9 DW "OOD *OWDOVWIOO 27" WOW Ww 


1 
A 
: 
0 
1 
& 
A 
0 
0 
A 
A 
0 
5 
5 
A 
02 
AE 
A 
0 
5 
5 
8 
i] 
i] 
0 
5 
1 
A 
A 
0 
p 
0 
1 
A 
| 
A 
A 
0 


DIMA S NINOS F OVID OOW Mh OL OOP ™WOMNOS FN MD UVNVOSI DWOwWOMD OF "OO 


DED NA ESE B&LE FE PMMA SOOO 


| 
| 
| 
| 
| 
| 
| 
S| 


30 VAX=-11 Bliss-32 V4.0-742 
1 DISKSVMSMASTER: CCOPY.SRCICOPYCLI. B32:1 
#1, RO, #0, <(SP) 

a8, ($P)+, RO, RO 

RO, #4 

21§ 

EXTENSION_DESC 

meget 

#4908 

a COPYsisG _NUMBER 

#4, LIBSSIGNAL 

22$ 


EXTENSION_DESC 
CLI_DESC 
#4908, -(SP) 
#1, COPYSMSG_NUMBER 
RO 
IBSSTOP 
cobyscit” bear st? CURR_EXTENSION_VALUE 


“., a in 
EOPYSCLI_STATUS#3 


SadES C 
T _VALUE 
STATUS? 16 


=(5 
#1, COPY'sHsG NUMBER 
#1. RO, # b. P) 
#8. (SP) )+, RO 
RO, #4 

FILE_MAX_DESC 
CLI_BESC 


a 908 
OF OPYSASG _NUMBER 


#4, LIBSSIGNAL 
FILE_MAX_DESC 
CLI_BESC 


#4908 
OR SPYSASG. NUMBER 


EobrScLT st “STATUS, CURR_F ILE_MAX_VALUE 
ore OT domeseat 


2 eee eee ee 


5 
COPY $5 VAX=11 Bliss-32 V4.0-742 Pa 1 
Vv “560 14- a 1984 13: = DISKSVMSMASTER: : (COPY. SRCICOPYCLI.832; 1 oe (4 


FF = AG 01 05 Fe $0 INSV + $36 #1, COPYSCLI_STATUS+3 ; 
11 E 1 BLBC ; 
0000v CF fe 74 CALLS PROTECTION PARSE : 0921 
12 A6 0000" CF 80 00379 MOVW #0; PROTECTION_AND, COPYSCLI_STATUS+22 ; 09 ¢ 
10 A6 0000" CF 680 0037F MOVW CURR_PROTECTION_OR, COPYSCLI_STATUS+20 3 092 
04 00385 27$: RET : 0925 


; Routine Size: 902 bytes, Routine Base: S$CODE$ + 0000 
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GLOBAL ROUTINE COPYSGET_LOCAL_QUAL: NOVALUE 


39 VAX-11 Bliss-32 V4.0-742 
! Retrieve local qualifiers from the CLI 


++ 
FUNCTIONAL DESCRIPTION: 


This routine retrieves the local command qualifiers from the command 
ne. 


FORMAL PARAMETERS: 
None 
IMPLICIT INPUTS: 
None 
IMPLICIT OUTPUTS: 
COPYSCLI_STATUS = Relevant command and qualifier indicators set 
ROUTINE VALUE: 
None 
SIDE EFFECTS: 
None 


BEGIN 


LOCAL 
rtn_status, ! Status returned from external calls 
cli_desc : $BBLOCKC dsc$c_s_bin ] ! Dynamic string descriptor, points to values 
; ! returned from calls to the CLI 


BIND 
MSG_DESC = SDESCRIPTOR('can''t change quals in the middle of the command') 


Initialize descriptor. Also, if a new output file is being created, then 
reset the current qualifier values to the global values. This insures 
that if a previous local qualifier changed the value and, on this 
iteration, there is no local qualifier, the value used when creating the 
output file will be the one given by the global qualifier, not the 
previous local qualifier. 


CHSFILL( 0, DSCSC_S_BLN, cli_desc); 
cli_descl€ bSC$B_CCASS J = DSC$K_CLASS_D; 


IF not .outfile_open 
THEN 


4 Page 19 
DISKSVMSMASTER: CCOPY.SRCIJCOPYCLI.B32;1 (5). 


- 9 DISKSVMSMASTER: CCOPY.SRCICOPYCLI. B32; 79 


18-sep p= 138% $3: 1's VAX=11 Bliss-32 V4.0-742 ad 


H 983 BEGIN 

3 656 984 curr_allocation_value = .allocation_value; 

3 $2? 985 curr_extension_Value = .extension_value; 

; 456 9 8 curr_file_max Value = .file_max_vValue; 

: 457 9 curr_protection_or = -protection_ or; 

; 458 988 curr_protection_and = protection. and; 

; 459 989 curr_volume_valie = .volume_valie; 

: 460 990 END;~ 

ts: 392 

; ‘a7 Hit Determine if this is a COPY or APPEND command. 

: 465 995 if NOT .append_command 

: 466 099 THE 

Re ope 

; re 4 44.4 It is a COPY command. Parse the COPY specific qualifiers. 

$471 1001 i Initialize the flags for the local qualifier states. Assume that 

; 47 1008 ' there will be no local qualifier. See if the qualifier is present. 
s 47 100 ! If is is, see if it is locally present or locally aogesed, Set the 
3 474 1004 ! appropriate flags. The output file can not be open for the local 

3; 475 1005 ! qualifiers to be accepted. The local qualifiers” qt fete the attributes 
; 476 1008 ! of the output file at creation time (i.e. goriocat’ on, location, etc.). 
: 477 100 i These things cannot change once the file is open. Therefore, if the 
3; 478 1008 ' output file is open and a local qualifier has been Lette issue 
3 rt 8 a warning, ignore the qualifier and continue processing. 

: 481 1011 /OVERLAY 

: 48 1918 loc overlay. qual = ese overlay_qual = FALSE; 

> 484 1014 cen status = CLISPRES ark overlay_ desc )3 

; on? + 9 ELECTONE .rtn_status 0 

; 487 1017 CCLIS_LOCPRES] : IF NOT .outfile open, aa 

; oc 

; ret 1939 : ELSE PUT “MESSAGE T NS uses, “REPLACED, 1, MSG_DESC ); 
; 491 1021 CCLIS_LOCNEG] : IF Not outfite Open RUE 

F _ove 

3; 49 195 else E PUT eT Hat tet ueGs. “REPLACED, 1, MSG_DESC ); 
3 494 1Ose TES; 

3 re + 5 

; a3 19 ; 1 /REPLACE 

: 499 1029 le _replace_qual = neg replace_qual = FALSE; 

; 500 1030 rtn-status = CLISPRES ae replace_ desc ) ; 

; 503 1p 1 SELECTONE .rtn_status 0 

; 508 1088 CLIS_LOCPRES) : IF NOT . outfile.o ee 

; 505 Ht ELSE PUT $-heeeace ane uecs. REPLACED, 1, MSG_DESC ); 
; $09 iy CCLIS_LOCNEG) : IF Not outfile ten 

; 29 1 3 else E Bee-negsace rns Macs “REPLACED, 1, MSG_DESC ); 


TES; 


SISOS 


VLAN — O OONOUES WN OOONOUS WN O 


/ TRUNCATE 


loc_truncate_qual = neg. truncate qual = FALSE; 
rtn status = CLISPRESENT( truncate_desc ); 
SELECTONE .rtn_status OF 


CLIS_LOCPRES] : IF NOT .outfile_open 
THEN Loc_truncate_qual = TRUE 
ELSE PUT_MESSAGE( MSGS_REPLACED, 1, MSG_DESC ); 


CCLIS_LOCNEG] : IF NOT .outfile_open 
THEN neg_truncate.qual = TRUE 

TES: ELSE PUT_MESSAGE( MSG$_REPLACED, 1, MSG_DESC ); 
/VOLUME 
(oc_volume_qual = neg volume_qual = FALSE; 
rtn status = CLISPRESENT( volume_desc ); 
SELECTONE .rtn_status OF 

CCLIS_LOCPRES) : i NOT .outfile_open 


BEGIN 


Wy. 


Get the value and and convert it from a string into binary. 
CLISGET VALUE( volume_desc 


a SSeS 


-_cli_desc ) 
NOT Trtn_status = CIBSCVT_DTB(.cli 


a ee ee ee ee a ee ed ed ed ed od od od od dd od dd 


Be Se Be Se Ge Se Be Ge Se Se Se Se Se Ge Ge Ge Se Se Ss Se Se FF Se Ge Ge FF Ge FH Ss Gs Se Fe Ge Ge Ge Fs Ge Se Fe Se Ge Se Ss SF Se Se Se SF Se Se Se Se Se SeSeSsees 
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7 

8 

9 

’ 
4g _descl DSC$W_LENGTH J, 
az THEN -cli.desc€ DSCSA_POINTER J, Curr_volume_value) ) 
45 PUT_MESSAGEX( MSGS$_INVQUAVAL, 2, cli_desc, volume_desc ); 
r¢ loc_volume_qual = TRUE; 
re ELSE PUT_MESSAGE( MSG$_REPLACED, 1, MSG_DESC ); 

50 CCLIS_LOCNEG) : IF NOT .outfile_open 

51 THEN pos_ve.une yes = TRUE 

26 TES: ELSE PUT-MESSAGE( MSG$_REPLACED, 1, MSG_DESC ); 

34 END; 

23 : Parse the qualifiers which are applicable to both commands. 

38 9 /READ_CHECK, /WRITE_CHECK and /CONTIGUOUS 

60 090 loc_read_chk_qual = neg read_chk_qual = FALSE; 

61 91 rtn- status = CLISPRESENT( read_check_desc ); 

6 3 SELECTONE .rtn_status OF 

64 CLIS_LOCPRES] : IF NOT .outfile_ open 

65 95 THEN loc_read_chk_qual = TRUE 

66 096 ELSE PUT"MESSAGE("MSG$_REPLACED, 1, MSG_DESC ); 


. 
15-Sep-1984 23:37:5 VAX-11 Bliss-32 V4.0-742 P 1| 
12338-1382 13:76:19 DISKSVMSMASTER:CCOPY.SRCICOPYCLI.B32;1~ 3) 
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5 
1S-sen-1986 93:37:50 
CCLIS_LOCNEG] : IF NOT .outfile_open 


THEN neg_read chk gual = TRUE 
ELSE PUT"MESSAGE("MSGS$_REPLACED, 1, MSG_DESC ); 


32 V4.0-742 
R:CC 


TES; 


rtn-status = CLISPRESENTT write_check_desc ); 
SELECTONE .rtn_status 0 


CLIS_LOCPRES) : IF NOT .outfile_open 
THEN Loc _write_ch gual = TRUE 
ELSE PUT-MESSAGE( ASGS_REPLACED, 1, MSG_DESC ); 


CCLIS_LOCNEG] : IF NOT -out {ile_open 
THEN nogur ite ch gual = TRUE 
ELSE PUT"MESSAGE( ASGS_REPLACED, 1, MSG_DESC ); 


loc _write_chk_ qual = neg write.chk qual = FALSE; 
F 


TES; 


loc_contig_qual = neg contig_qual = FALSE; 
rtn status = CLISPRESENT( contiguous_desc ); 
SELECTONE .rtn_status OF 


CLIS_LOCPRES] : IF NOT .outfile_open 
THEN boc contig wet = TRUE 
ELSE PUT"MESSAGE( MSGS$_REPLACED, 1, MSG_DESC ); 
CCLIS_LOCNEG)] : IF NOT .outfile_open 
HEN neg-cont ig yes = TRUE 
TES: ELSE PUT_MESSAGE( MSGS_REPLACED, 1, MSG_DESC ); 
: /ALLOCATION 
loc_alloc_qual = neg alloc_qual = FALSE; 
rtn_status = CLISPRESENT( allocation_desc ); 
SELECTONE .rtn_status OF 
CLIS_LOCPRES] : if wd -outfile_open 
BEGIN 
: Get the value and and convert it from a string into binary. 
CLISGET_VALUE( allocation desc, cli_desc ); 
IF NOT Trtn_status = LIBSCVT_DfB(.cTi_desct DSCSW_LENGTH J, 
-cli_deSc{l DSCSA_POINTER J, Curr_allocation_value)) 


THEN 
PUT_MESSAGEX( MSGS_INVQUAVAL, 2, cli_desc, allocation_desc ); 


Loc al loc_qual = TRUE; 
ELSE PUT_MESSAGE( MSGS_REPLACED, 1, MSG_DESC ); 
CCLIS_LOCNEG] : IF NOT .outfile_open 


0-74 Page 
OPY. SRCICOPYCLI.B32:1~ & | 


Se Se Se Be Ge Se Se Se Se Se Ge Ge Se Ge Fe Se Ge Ge Fe B. Ge Ge Se Se Se Se Ge Ge Ge Se Se Se Se Se Se Fe Ge Se Se Be Se FH Se Se Se Se Ge Se Se Se Se Se Se Ge ee tees 


. 
s 


VFEWN—ODOONOUE 


SLOSSSSAA AS AA AA AAS AO OO-O 


SESSSSSESALGL ALAR ARE EA 
MEUM OO OONOUES WN “OODNOUSWN—O0W 


ets 


AOOAAAAQO 
ANN 
DONOUVESEWN—0O0 


3 


a ee ec em ee ee ee ee ee a ed ed ed od ed = dd dd 


Go.0c°o C208 SII NN NNN NN NP PAAAAAAAAOAOMUIUNTII 
MPwn— SECSSR a SSS SR eS SSNS RN SSS SSF SSS 


RIPPIN INI NNN & HIAIANIIUPIPIPINPIPOPUNINININPINPININININPINI WWII & BAIN NIIUIPRIPOPOPOPONNNPOPOPonoTyD 


=o 


Oowoew 


tise site AL 


peg.el Loc 9 al = TRUE 
res: PUT_MESSAG hsGs. "REPLACED, 1 
} /EXTENSION 
» extend_qual = neg_ extend qual = FALSE; 
cin status “§ CLISPR RESENT eatensien desc 5; 
ELECTONE .rtn_status 0 
CLIS_LOCPRES] : NOT .outfile_open 


BEGIN 


Get the value and and convert it from a string into binary. 


cL iscer VALUE( extension gfese 
IF NOT Trtn_status = LIB 


X-11 
Dts SKSV nen 


+ MSG_DESC ); 


i_des 
SCVT +5160. tli gp & tl D 


-cli_descl DSCSA~ POINTER 


loc_exténd_qual = 


ELSE PUT_MESSAGE( MSGS_REPLACED, 1, 


CCLIS_LOCNEG) : if NOT yet ~open 
THEN neg. exten ove’ RUE 
ELSE PU “fESEAGE MSGS _REPEACED, 


TES; 
/FILE_MAXIMUM 
loc. file_max ~quat = Sef file_max_qual = FALSE; 
rtn-status = CLISPRE i file_max_desc ); 
SELECTONE .rtn_status 0 

CLIS_LOCPRES) : 4 NOT .outfile_open 


BEGIN 


: Get the value and and convert it from a string into binary. 
cLscer VALUE( file_max_ desc, cli ~des 
F NOT Trtn_status = LIBSCVT_DIB(lcl 
-cli_deScC DSCSA 


THEN 
PUT _MESSAGEX( ys: Peemamaenes 2. 


Loc. filé_max_qual = 
ELSE PUT_MESSAGE( MSGS_REPLACED, 1 


CCLIS_LOCNEG) : if unt cout tite -open 


RUE 
ese E PUTRES SAGES AS MSGS REPLACED, 1, MSG_DESC ); 


TES; 


MSG_DESC ); 


, MSG_DESC ); 


« MSG_DESC ); 


DSCSW_LENGTH J, 
R J, Curr _extension_ value)) 


THEN 
PUT_MESSAGEX ( ht INVQUAVAL, 2, cli_desc, extension_desc ); 


fot ef DS 
“PO! NTER 


cli.desc, file_max_desc ); 


s-32 V4.0-74 
TER: CCOP 


2 p | 
clopY.SREICOPYCLI.B3204°" (8) 


SW_LENGTH J, | 
. Curr_file_max_value)) 
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35 
sF 


: 9g 121) | 
e | 
: ° | 1§ /PROTECTION 
: 5 1215 loc_protect_qual = neg protect_qual = FALSE; 
; 6 1 1 cea ctatus 2 UP ISPRESENT ( protéction. desc ): 
3 ? : : ELECTONE .rtn_status OF 
; 6 1 i8 fEus. LOCPRES] : IF NOT .outfile_open 
; 690 1220 THEN 
3 $3) : 1 BEGIN 

; o38 ' § Parse the keyword values and save the results. | 
: 695 1225 rotection_parse(); 

3 $38 ; § toe «protect qual = TRUE; 

: ons : 3 ELse "Put MESSAGE ( MSGS_REPLACED, 1, MSG_DESC ); 

; $30 1230 CCLIS_LOCNEG] : dl a. -outfile grpen 

: 701 1231 pegs ect RUE 

3 4 ; ¢ TES: evse PU ESSAGET™ mscs, REPLACED, 1, MSG_DESC ); 

: 704 1234 : 

; 705 1 33 END; ! routine COPYS$GET_GLOBAL_QUAL 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


75 (71 34 65 67 6 } 68 63 20 74 3 $f 61 63 00110 P.ABF: .ASCII \can'’t change quals in the middle of the \ ; 
ive ete Se 7 $5 Se GF 50 68 Sc (ObIze 
6E 61 6D 6D 6F 83 001 $8 ASCII \command\ : 
0000002F 00140 P.ABE: .LONG 47 : 
00000000" 00144 “ADDRESS P.ABF ; 
MSG_DESC= P. ABE 
.PSECT SCODES,NOWRT,2 
OFFC 00000 ENTRY Arragckack J LOCAL 9 QUAL, Save R2.R3.R4.R5,R6.- ; 0926 
Py j 
B 0000 0 G 8F 00 902 MOVL TOePRES. RI : 
G CF 9£ 9 MOVAB COPYSSER. STATUS, R10 ; 
G cf 9€ of MOVAB copy YSMSG G NUMBER * R9 ; 
: 000000006 40 3 9 1 MOVAB CTBSSTGNAL : 
CF 9E OOO1A MOVAB MSG DESC, R7 F 
6 006 i 9 iY HOVA . R6 ; | 
08 00 6E 5 sé t MOVCS #0. (SP), #0, #8, CLI_DESC : 0978 
AE 05 29 D MOVB #2, CLI_DESC+3 : o79 
1€ AA 5 1 BBS gOrTsstn STATUS +2 : 0981 
0000' CF 04 Ad 7D MOVO toby CLI_STATUS+8, coer’ TALLOCATION. VALUE ; 09 


1A §¢ 


000000006 
06 2 
04 


02 
00006 


1A 02 
02 


000000006 
06 0 
08 


01 
00006 


wiry 


000000006 
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9 OM FO NOFY NOMI SOM 0 SOM 90 TN OMT WWOO SOM 0 wm 00m CMWMOWDO 
VIM POW OW RS DODO “HOW — HOW OW RS DODO Hnonvoowovwerow re ooooo 
SOOSCOSCO 
>>>> 
—TDAWMO > 


COON WR MMMMMNoOO 


ANAM ONE OOWOMD 


—— -GDOOoooooooscoS 


STA ATUS. 


OPYSSEM aS TATUS 2. 4$ 
OPYSCLI_-STATUS+ 


=STATUS, #CLIS_LOCNEG 


OPYSSEM STATUS eg. 4$ 
OPYSCLI_STATUS+ 


On “nn ona 


#1283 
oer OPYSASG _NUMBER 


LIBSSIGNA 

18, COPYS$CLI  StaTUS#6 
LACE_DE 

#1, CLISPRESENT 

RO. RTN_ STATUS 

ar STATUS, R11 


#1, COPYSSEM_STATUS+2, 7$ 
#4, COPYSCLI- ~STATUS+6 


as STATUS, #CLIS_LOCNEG 


- COPYSSEM_STATUS+2, 7$ 
COPYSCLI-STATUS+6 


8. 
$ 
R? 
#1 
4 
1, 


283, -(SP) 
COPYSMSG_NUMBER 


LIBSSIGNA 
84 COPYSct I _STATUS+5 
UNCATE DE 
CLI BRESENT 
_STATUS, R11 


N 
COPYSSER STATUS+2, 10$ 
8. COPYSCCI_STATUS#5 
N 
$ 


STATUS, #CLIS$_LOCNEG 


V4.0-742 Page 25 
:CCOPY.SRCICOPYCLI. B32;1° (83 
RR_FILE_MAX VALUE 
RR_PROTECTION_O 
R- PROTECTION AND 
R- VOLUME _VALOE 


; 
i a 


~} 
| 
18-52 -1984 23:37:5 VAX=-11 Bliss<-32 V4.0-742 Page 26 
12-Sep-19 4 93:72 37 DISKSVMSMASTER: LCOPY.SRCICOPYCLI.B32: 1° 5 
06 02 AA 01 19 BBS "1, COPYSSEM_ STATUS*2, 10$ : 
Ab O1 1 B1s82 ne COPYSCLI-STATUS+ + 1054 
7 DD 00119 108 PUSHL R7 + 1055 
1 pp 118 PUSHL #1 : 
7 1088 «BF O3C:«(0011 MOVZWL #4283, -(SP) : | 
6 1 FB 001 CALLS #1, COPYSMSG_NUMBER : 
DD 001 PUSHL R : 
3) FB 001 CALLS @# LIBSS1GNAL ; 
01 Ab BA 102A 11$:  BICB2 #24, COPYSCLI_STATUS+5 + 1061 
AB A? 9F 001 F PUSHAB VOL + 1062 
00006 cf 1 FB 1 CALLS #1, CLISPRESENT ; 
2 g dO 001 $ MOVL RO. RTN_STATUS F 
58 2 D| 2 cMPL RTN_STATUS, R11 + 1065 
78 02. AA gi 6 91 BBS #1, COPYSSEM_STATUS+2, 15$ ; 
5 DD 0014 PUSHL SP + 1071 
AS A? 9F 0014 PUSHAB VOLUME DESC ; 
00006 CF 02 FB 00148 CALLS #2, CLISGET_VALUE ; 
0000" CF 9F 0014D PUSHAB CURR_VOLUME~VALUE : 1072 
08 AE pp 0131 PUSHL _BESC+4 + 107 
7E 08 AE C 00154 MOVZWL CLI“DESC, -(SP) + 1072 
000000006 00 Q FB 00158 ALLS , LIBSCvT_DTB ; 
3g g D0 0015F MOVL RO, RIN STATUS F 
4 3 . O162 LBS §_RTN_STATUS, 13$ : 
ze 132¢ «BF 63C 0016 MOVZWL  # -(SP) + 1075 
6 01 FB OO16A CALLS #1, COPYSMSG_NUMBER : 
7E 00 50 01 7A 90160 EMULSsé#1, #0, =(SP) F 
50 50 BE 08 7B O17e EDIV #8, (SP)+, RO, RO : 
04 50 D1 0017 CMPL RO. & : 
17 13 OOI7A BEQL 12 ; 
AB A? OOF 017¢ PUSHAB VOLUME_DESC ; 
04 AE 9F 0017F PUSHAB CLI_DESC ; 
0 pp 0182 PUSHL ; 
7E 132 BF «3C 00184 MOVZWL #4908, -(SP) ; 
69 gi FB 00189 CALLS #1, COPYS$MSG_NUMBER ; 
0 DD o18¢ PUSHL ; 
68 04 Fe 018 CALLS #4, LIBSSIGNAL : 
19 11 00191 BRB : 
AS A? 9F 00193 12$:  PUSHAB VOLUME _DESC F 
04 AE 9F 00196 PUSHAB CLI_DESC F 
0 pp 0199 PUSHL # : 
7E 132¢ «BF O3C «(001 MOVZWL #4908, -(SP) : 
69 1 FB OO1A CALLS #1, COPYS$MSG_NUMBER : 
0 DD OO1A PUSHL RO ; 
000000006 00 4 FB OOIA CALLS #4, LIBSSTOP ; 
01 «Ab 3 8 1AC 13$:  BISB ag COPYSCLI_STATUS#5 : 1076 
1B BRB 1 > 1065 
000000006 8F 32 p| 18 148: cMPL RIN_STATUS, #CLIS_LOCNEG > 1080 
06 2 AA 1 1BB 15$: BBS #1, COPYSSEM_STATUS+2, 16$ F 
8 Ab 10 6 160 B1SB2 ig, COPYSCLT_STATUS+5 : 1081 
7 OD 106 16$:  PUSHL R7 > 1082 
1 bp 1¢ PUSHL #1 : 
3 10BB BF 3C OOICA MOVZWL #4283, -(SP) : 
6 1 FB OO1CF CALLS #1, COPYSMSG_NUMBER ; | 


a —, 


| 
1 1984 23:37:50  VAX-11 BLiss-32_v4.0-742 Page 27| 
1 138 93:37:29 DISKSVMSMASTER: CCOPY.SRCICOPYCLI.B32:1° By 
| 
DD 001D PUSHL R ; 
48 a3 FB 102 CALLS Re L 1B$S1GNAL : | 
66 6 BA 107 17$:  BICB2 #6, COPYSCLI_STATUS+4 + 1090 
FF74 F OO1DA PUSHAB READ CHECK DESC + 1091 
00006 CF 1 Ff 105 CALLS #1, CLISPRESENT 3 
52 9 dO OO1E MOVL RO, RTN_STATUS : | 
8 2 p 168 cMPL RIN_STATUS, R11 3 1094 | 
18 02 AA 1 £6 1€ BBS #1, COPYSSEM_STATUS+2, 19$ : 
66 é bs i B1 S82 a2 COPYSCLI-STATUS+4 + 1095 
000000006 8F 2 ? Or 18$ CMPL  RTN_STATUS, #CLIS_LOCNEG + 1098 
18 1FC BNEO 0$ : 
05 02. AA 01 O1Fe BBS #1, COPYSSEM_STATUS+2, 19$ : 
66 04 i 0 0 B1s82 4 COPYSCLI-STATUS *4 + 1099 
57 DD 00 $8 19$: PUSHL R7 + 1100 
01 bp 020A PUSHL #1 : 
7E 1088 «BF ««3C «0020C MOVZWL #4283, -(SP) : 
69 o1 FB 0 | CALLS #1, COPYSMSG_NUMBER : 
68 83 FB 00216 CALLS #3, LIBSSIGNAL : 
66 60 BF BA 0219 208 BICB2 #96, COPYS$CLI_STATUS+4 > 1104 
88 AZ? 9F 0021D PUSHAB WRITE CHECK DESC : 1105 
0000G CF 9} FB 0220 CALLS #1, CCISPRESENT 3 
2 0». 00 MOVL RO, RTN_STATUS ; 
B 52 D1 00208 CMPL -RTN_STATUS, R11 : 1108 
OA 12 00228 BNEQ 21$ : 
19 02 AA 01 £0 00260 BBS #1, COPYSSEM_STATUS+2, 22$ : 
66 20 88 90 2 B1SB2 32, COPYSCLT_STATUS+4 > 1109 
000000006 8F 52 D1 00 7 21$ CMPL RIN STATUS, #CLIS_LOCNEG : 1112 
06 02. AA gi £0 00 4p BBS #1, COPYSSEM_STATUS+2, 22$ : 
66 40 BF a8 00 43 B1SB2 sh, COPYSCLT_STATUS+4 > 1113 
57 DD 00248 228 PUSHL R + 1114 
01 pp 024D PUSHL #1 ; 
7E 10BB «8F «3C O024F MOVZWL #4283, -(SP) ; 
69 gi FB 0 24 CALLS a. COPYSMSG_NUMBER ; 
68 03 FB 6 29 CALLS #3, LIBSSIGNAL : 
FE A6 $0 F BA C 238 BICB2 #96, COPYSCLI_STATUS+2 > 1118 | 
FF24 C7? 9F 00261 PUSHAB CONTIGUOUS DESC > 1119 
00006 CF 1 Ff 65 CALLS #1, CLISPRESENT : 
52 g 06 026A MOVL RO. RIN STATUS : 
B p cMPL RTN_STATUS, R11 > 1122 
1B 02. AA 1 7 BBS #1, COPYSSEM_STATUS+#2, 25$ : 
FE A6 0 i? B1SB2 a3 , COPYSCLIT_STATUS+2 + 1123 
000000006 8F $2 p] 7D 248: cHPL RIN_STATUS, #CLIS_LOCNEG > 1126 
7 AA 1 BBS #1, COPYSSEM_STATUS+2, 25$ : 
. 2 Ab 40 BF s B1S82 6h, COPYSCLI_STATUS+2 > 1127 
57 DD 00292 25$: PUSHL R > 1128 


i 


Bliss-32 V4.0-742 Page al 


m5 
15-Sep- 1984 33: 37:5 VAX=11 
14-Sep- 4:1 DISK SVMSMASTER: CCOPY.SRCICOPYCLI.B32;1 ) 
1 DD y PUSHL 4 Pa 
7 1088 «sa BP 36 MOVZWL ui 283 : 
6 1 FB 00298 CALLS tOpysnse _NUMBER : | 
g DD 0029 PUSHL ny" : 
68 FB OO2A CALLS #3, LIBSSIGNA : 
FE AG 6 BA A3 26$:  BICB2 #6, COPYSCLI Status+2 + 1134 
FF10 F OOOA PUSHAB ALLOCATION DESC + 1135 
00006 ct 1 FB A CALLS #1, CLISPRESENT : 
2 D 8 MOVL RO. RTN_ STATUS : 
D1 0028 CMPL  RTN_STATUS, R11 : 1138 
if B BNEQ : 
7B 02. AA gi E B BBS #1, COPYSSEM_STATUS+2, 30$ : 
E BD BD PUSHL + 1144 
FF10 g F OO2BF PUSHAB A LOCATION DESC : 
00006 CF 2 FB 00 C3 CALLS CLISGET_ VALUE : 
0000" CF 9F 00eC PUSHAB CORR ALLOCATION. VALUE + 1145 
08 AE pp 02¢C PUSHL (CLI 1 BeSCes + 1146 
7E 08 AE C O0OCF MOVZWL ¢ I=DESC * sp) + 1145 
000000006 99 03 FB 00203 CALLS “LIBSCVT_DTB F 
2 50 DO O02DA MOVL RO RTN_ STATUS : 
49 52 E8 00200 LBS = RTN STATUS yas ; 
7E 132¢ «BF OCC 00 EO MOVZWL + 1148 
69 01 FB 002E5 CALLS » COPYSHSG _NUMBER ; 
7E 00 50 01 7A 00 £8 EMUL 0, =(SP) F 
50 50 BE 08 8 0 ED EDIV 1: ASB) )+, RO, RO : 
18 13 $6 fg BEQL 27 : 
FF10 C7 QF O02F7 PUSHAB ALLOCATION_DESC F 
04 AE 9F OO2FB PUSHAB CLI_DESC : 
0 pp OO2FE PUSHL : 
7E 132¢ «BF OBC 00 00 MOVZWL ui 908, -(SP) : 
69 01 FB 00305 CALLS MOP OPYSASG _NUMBER : 
50 DD 00308 PUSHL : 
68 04 FB O30, CALLS #4, LIBSSIGNAL : 
1A 11 0030D BRB : 
FF10 C7 QF OO30F 27$: | PUSHAB ALLOCATION_DESC : 
04 AE 9F 00313 PUSHAB CLI_DESC : 
02 pp 0316 PUSHL ; 
7E 132¢ «6 BF 0O38C (00318 MOVZWL #4908 : 
69 gi FB 0031 CALLS #1, eOpysnee _NUMBER 3 
000000006 00 be PB OS CALS #&. LIBSSTOP ; 
FE Ab i 88 0 9 28$: B1SB2 4 COPYSCLI_STATUS+2 ; 1149 
000000006 8F 32 D1 ° F 298: cHPL RIN _STATUS, #CLIS$_LOCNEG ; 133, 
06 02 AA 1 6 308 #1, COPYSSEM ~STATUS¢2. 31$ : 
FE Ab 04 a 3 B1SB2 4 COPYSCLI~STATUS+ > 1154 
7 DD 00343 31$ PUSHL 35 > 1155 
1 pp 4 PUSHL #1 F 
7E 108B «BF 3C (0034 MOV ZL #4283 : 
69 1 FB 0034C CALLS 28 SPYSASG _NUMBER F 
68 } pe 03s1 CALLS i BSS 1GNA : 
FF AG A 3, 32% BICB2 at CLI ET aTUS#3 ; 1161 
FF38 OC) } 8 PUSHAB EXTENSION. DESC : 1162 


5 
15-Sep-1984 23:37:5 VAX-11 Bliss-32 V4.0-742 
ee tioe ts rie ee) Mee HS ee eh at 
00006 CF 1 Ff 5¢ CALLS #1, CLISPRESENT 
2 D MOVL RO, RTN_STATUS 
B : CMPL = RTIN_STATUS, R11 
: 67 BNEQ  35$7 
7B 02 AA gi E 69 BBS #1, COPYSSEM_STATUS+2, 36$ 
5 BD 6 PUSHL SP 
FF38 ¢ F PUSHAB EXTENSION_DESC 
00006 CF 2 FB 00374 CALLS #2, CLISGET VALUE 
0099" CF 9F 00379 PUSHAB CURR EXTE ENSTON. VALUE 
08 AE pp 7D USHL  CLI_BESC+4 
7E AE 3C 00380 MOVZWL cLI-DESC -(SP 
000000006 Q 9 F 0 CALLS #3, LIBSCVT_DTB 
D MOVL RO, RIN STATUS 
i 3 c 0 a BLBS §RTN_STATUS, 34$ 
7E 132¢ «6 BFS: 3.:«0039 MOVZWL #490 -(SP) 
69 01 FB 00 3% CALLS COPYSMSG NUMBER 
00 50 01 7A 00 EMUL AR RO, #0, = 
50 BE 98 7B 00 i EDIV #8, (SP)+, RO, RO 
04 0 D1 003A CMPL = RO. 
18 13 00 ne BEQL 
FF38 «C7?soO8F 3A PUSHAB EXTENSION_DESC 
04 AE 9F OO3AC PUSHAB CLI_DESC 
0 pp OOSAF PUSHL 
7E 132 «BF 3C (00381 MOVZWL #4908, -(SP) 
69 gi FB 0386 CALLS #1, COPYSMSG_ NUMBER 
0 DD 00389 PUSHL R 
68 04 FB 00388 CALLS #4, LIBSSIGNAL 
1A (11 O38 BRB 
FF38 «6 C7:—sOOF b05¢ 33$:  PUSHAB EXTENSION_DESC 
04 AE OF 00364 PUSHAB CLI_DESC 
0 pp 003¢7 PUSHL 
7E 132¢ 6 BF 3C :003C9 MOVZWL #490 SP) 
69 gi FB OO3CE CALLS Oe Sp YSASG. NUMBER 
0 DD 00301 PUSHL 40 
000000006 00 04 FB 00 D3 CALLS #4, LIBSSTOP 
FF AG 01 88 00 DA 348: B1SB2 #1 EOPYSCLI _STATUS+3 
000000006 8F $3 D1 O03E0 35$:  CMPL = RTN_STATUS, #CLIS_LOCNEG 
iC 18 O3E7 BNEO 388 
06 02. AA 4 E O39 36%: BBS COPYSSEM ~STATUS 2. 37$ 
FF AG é 8 00 EE B1SB2 Ay COPYSCLI~STATUS+ 
11 11 OO3F BRB 38$ 
57 DD 003F4 37$:  PUSHL R7 
4 BD 0 £6 USHL 
7E 1088 «BF SOC3C:«003F MOVZWL #4283, -(SP) 
69 gi FB OO3FD ALLS #1, COPYSMSG_NUMBER 
DD 00400 PUSHL 
68 03 FB 0402 CALLS LIBSSIGNA 
FF AG 1 BA 940 38$:  BICB2 ; 4, coPyYscil statuses 
FF4C «6C7 OOF 409 PUSHAB Five MAX_DESC™ 
0000G CF 1 FB 04 CALLS . CLISPRESENT 
52 0 pO 0041 MOVL ’ STATUS 
58 é D1 0041 CMPL RTN_STATUS, R11 
18 0418 BNEO 
7B 02. AA gt EO OO41A BBS #1, COPYSSEM_STATUS+2, 428 
g bp O41F PUSHL 
FF4C C? OF 00421 PUSHAB FILE_MAX_DESC 
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& 
COPY 18.56 -1984 23:37:5 VAX=-11 Bliss-32 V4.0-742 
v04=0 14-Sep-19 4 ; 14:1 DISKSVMSMASTER:CC 
00006 CF 02 FB 00425 CALLS #2, CLISGET_VALUE 
0099" CF 9F OO42A PUSHAB CURR_FILE_MAX_VALUE 
0 AE pp 42E PUSHL  CLI_BESC+% 
7E 8 AE C 00431 MOVZWL ChIIDES¢ -(SP) 
000000006 Q F 04 5 CALLS #3, LIBSCVT_DTB 
9 D0 0043C MOVL RO, RTN_STATUS 
4 : 0435 BLBS _RTN STATUS 40$ 
7E 132c «BF OBC Dae MOVZWL #490 SP) 
69 4 FB 0044 CALLS #1, COPYSASG. NUMBER 
7E 00 50 1 7A 0044A EMUL #1. RO, #0, =(SP) 
50 50 BE 08 7B 0044F EDIV. «#8, (sP)+, RO, RO 
04 5 D4 0454 CMPL R0 yA 
18 1 0497 BEQL 6©=_—«39§ 
FF4C C7 «9F 00459 PUSHAB FILE_MAX_DESC 
04 AE 9F 00450 PUSHAB peg 
0 pp 00460 PUSHL # 
7E 132C «BF O3C 00462 MOVZWL #4908 SP) 
69 01 FB 0046 CALLS 1F pYSace _NUMBER 
50 DD 0046A PUSHL 
58 04 FB 0046C CALLS #4, LIBSSIGNAL 
1A 11 O046F BRB 4 
FF4C C7 9F 00471 39%: | PUSHAB FILE_MAX_DESC 
04 AE 9F 00475 PUSHAB CLI_BESC 
02 DD 00478 PUSHL 
7E 132C 8F 3C OO47A MOVZWL #4908 
69 01 FB 0047F CALLS COPYSASG. NUMBER 
50 DD 00482 PUSHL 40 
000000006 00 04 FB 00484 CALLS #4, LIBSSTOP 
FF AG 08 88 00488 40$: BIS82 #8. LOPYSCLI _STATUS+3 
25 11 0048F BRB 44 
000000006 8F 32 Dt 00491 41$: CMPL RIN. STATUS, #CLIS$_LOCNEG 
06 02 AA 01 £0 0049A 42$: BBS #1, COPYSSEM -STATUS#2. 43$ 
FF AG 02 88 0049F BISB2 #2. COPYSCLI_ “STATUS+ 
17 11 004A3 BRB 44$ 
57 DD 00405 43$: — PUSHL a? 
01 bp 004A7 PUSHL #1 
7E 1088 ««BF_SCC3C OO4A9 MOVZWL 428 
69 01 FB O04AE CALLS oO SPYSASG. NUMBER 
50 DD 00481 PUSHL rR 
58 03 FB 00483 CALLS LIBSSIGNAL 
FF AG CO BF 8A 004B6 44$:  BICB2 #192 COPYSCLI STA"US+3 
FF60 C7 9F 004BB PUSHAB PROTECT G0 pest 
00006 CF gi FB O4BF CALLS #1, CLISPRESENT 
2 0 pO 004c4 MOVL RO. STA Tus 
52 D1 004C7 CMPL N_STATUS, R11 
10 1 O4CA BNEG a8 
1F 02 AA 01 €0 004CC BBS COPYSSEM STATUS#2, 46$ 
0000v CF 00 EB 0401 CALL Ag ROTECTION. PARSE 
FF Ab 40 8F 88 0406 B1S8 #64, PrOPYSCLI NST ATUS#3 
000000006 8F 52 D] tm 45$: CPL RIN_STATUS, #CLIS_LOCNEG 
06 02 AA 4 " 4E BBS COPYSSEM_STATUS+2, 46$ 
FF AG 80 8F 8 AEA 81 $82 +138° COPYSCCI_STATUS+3 
57 DD OO4FO 46%:  PUSHL 7 


Page 
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COPY 1-56 -1984 23:37:5 VAX=-11 Bliss-32 V4.0-742 1 
V6 850 seg ; 14 39 DISKS$VMSMASTER: CCOPY.SRCICOPYCLI. B32. 79 e 3 
1 pp 42 : 

re 10BB «BF «3C 004F4 ROVZL #1283 : 

6 1 FB 004F9 cA LLS cOpysase NUMBER : | 

0 DD O04FC PUSHL ny" ; 

68 03 FB O04FE CALLS #3, LIBSSIGNAL : | 

04 00501 47$: —- RET + 1235) 


; Routine Size: 1282 bytes, Routine Base: SCODES + 0386 


-1984 23:37:5 VAX=11 BLiss=32 V4.0-742 Page 32 
ats 93:97:79 DISKSVMSMASTER:CCOPY.SRCICOPYCLI.B32:1> (&) 


; 707 1 $ 1 ROUTINE PROTECTION_PARSE : NOVALUE = 

; 708 1 1 

; 709 1238 1 !+4¢ 

: £9 : i ! FUNCTIONAL DESCRIPTION: 

5 ng ! re : This routine parses a PROTECTION qualifier value. 

; 7146 1 tg 1 ! FORMAL PARAMETERS: 

We ae 12464 1! 

; 716 1245 1! NONE 

: 717 12466 1! 

3; rie 1247 1 ! IMPLICIT INPUTS: 

; 719 12466 1! 

; 720 1249 1! NONE 

: 721 1250 1! 

Te ¢ \$2] 1 ! IMPLICIT OUTPUTS: 

3 £ 1 26 1! 

3: re 12535 1! CURR_PROTECTION_OR = Protection mask storage 

; tS? : 22 : . CURRIPROTECTION_AND = Protection mask storage 

3; 727 1256 1 ! ROUTINE VALUE: 

; 728 1257 1! 

: 168 1258 1! None 

3 0 1259 1! 

s sl 1260 1 ! SIDE EFFECTS: 

; Ler; 1261 1! 

s gs 1306 3B. None 

3 36 1265 1! 

3 735 1264 1 !-- 

3; 736 1265 1 

Mea 1266 2 BEGIN 

; 738 1267 2 

3; 739 1268 2 P : 

; 740 1269 2 CURR_PROTECTION_OR : seeL OCke a dy ! Protection mask 
; rel 1570 § CURR_PROTECTION_AND : $BBLOCKLE 2 J; ! Protection mask 
3; 74 1s7¢ CAL 

3 744 127 RTN_STATUS, ! Keyword lookup completion code 
3 745 1274 CLI_DESC : ! Descriptor which points to the keyword value 
3 746 1275 S$B8BLOCKC DSC$C_S_BLN J, : 
3 747 1276 KEY_DISP; ! Displacement of keyword nibble in XABSW_PRO 
: 748 1277 

3; 749 1278 

3; 30 1279 SYSTEM_DESC = SDESCRIPTOR('SYSTEM’), 

3; 751 1280 ER_BESC = S$DESCRIPTOR('OWNER'), 

3 Pee 1281 GROUP_DESC = SDESCRIPTOR('GROUP'), 

s 1 Hf 2 WORLD_DESC = SDESCRIPTOR('WORLD'); 

: 7546 128 

3; 755 1 He 

; 756 1285 

3 37 1 Hy] ! Initialize descriptor. 

; 128 ; , 

3; 759 1288 CHSFILL( 0, DSCS$C_S_BLN, cli_desc); 

> 760 1 89 cli_desc€ OSC$B_CCASS ) = DSCSK_CLASS_D; 

: 761 1290 

; 766 1291 

3; 1292 !' Check for SYSTEM keyword. 
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if CLISPRESENT( SYSTEM_DESC ) 
THEN 
BEGIN 


! Note that this is SYSTEM access. Initialize the the system protection 
: fields, in case noaccess is specified. 


Y_DISP = BIT_LOCATION( XABSV_SYS ); 
KEN? PRO TECTIO ION_ORC prot_mask(~.KEY DISP, 4)]_ = 4: 
CURR-PROTECTION -ANDE prot_mask( .KEY_DISP, 4)] = 0: 
} Retrieve the keyword value, if any, and parse it. 
if CLISGET_VALUE( SYSTEM_DESC, CLI_DESC ) 

PARSE _PROTECTION_VALUE( CLI_DESC, .KEY_DISP ); 


END; ! SYSTEM parse 


Check for OWNER keyword. 
if CLISPRESENT( OWNER_DESC ) 
THEN 

BEGIN 


! Note that this is OWNER access. Initialize the the OWNER protection 
fields, in case noaccess is specified. 


KEY_DISP = BIT_LOCATION( XABSV_OWN ) 
CURR_PROTECTION_ORC prot_mask(~ .KEY bisp 4)]_ = -1; 
CURRTPROTECTION-ANDL prot_mask( .KEY_DISP, 4)] = 0: 
Retrieve the keyword value, if any, and parse it. 
if CLISGET_VALUE ( OWNER_DESC, CLI_DESC ) 

PARSE_PROTECTION_VALUE( CLI_DESC, .KEY_DISP ); 


END; ' OWNER parse 


Check for GROUP keyword. 
if CLISPRESENT( GROUP_DESC ) 
THEN 

BEGIN 


' Bote that this is GROUP access. Initialize the the GROUP protection 
; fields, in case noaccess is specified. 


KEY_DISP = BIT _LOCATION( XABSV_GRP ) 
CORR _PROTECTIORN_ORC prot_mask(”.KEY bisp. 4) = at 
CURR“PROTECTION-ANDC prot_mask( .KEY_DISP, 4)] = 0: 


! Retrieve the keyword value, if any, and parse it. 
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52 


50 


44 


LISGET_VALUE( GROUP_DESC, CLI_DESC ) 
PARSE _PROTECTION_VALUE( CLI_DESC, .KEY_DISP ); 
! GROUP parse 


Check for WORLD keyword. 
IF CLISPRESENT( WORLD_DESC ) 


! Note that this is WORLD access. 
! fields, in case noaccess is speci 


KEY_DISP = BIT _LOCATION( XABSV_WLD ); 
CURR_PROTECTION_ORC 
CURR_PROTECTION_ANDC prot_mask ( 
H Retrieve the keyword value, if any, and parse it. 
IF CLISGET_VALUE( WORLD_DESC, CLI_DESC ) 
PARSE _PROTECTION_VALUE( CLI_DESC, .KEY_DISP ); 

! WORLD parse 


' Return to the caller. 
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Initialize the the WORLD protection 


KEY BISP, 4)] 
.KEV_DISP, 4)] 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
eASCII = \SYSTEM\ 
BLKB 2 


LONG 6 
«ADDRESS P.ABH 
eASCII = \OWNER\ 
BLKB 
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60 
es 
70 
74 
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66 
04 A6 
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00 
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FFFFFFFF 
4080 


04 
10 


FFFFFFFF 
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FFFFFFFF 
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«PSECT SCODES,NOWRT,2 
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(COPY. SRCJCOPYCLI.B32;1> (6) 


.WOR Save R2,R3,R4,R5,R6,R7,RB,RI,R1I0 : 1236 
9E 0000 MOV PARSE PROTECTION VALUE. R10 ; 
9E 900 MOVAB CLISGET VALUE, R9 : 
3 99 : MOVAB (CLISPRESENT, Rg : 
— 0001 MOVAB SYSTEM DESC. R : 
H 016 MOV CURR_PROTECTION_OR, R6 : 
: O18 SUBL2 #8, ; 

C OO1F moves #0. (SP), #0, #8, CLI_DESC + 1288 | 
90 00024 MOVB 2. CLI_DESC+3 : 1289 
DD 00028 PUSHL R + 1294 
FB 002A CALLS #1, CLISPRESENT : 

E9 00020 BLBC 3 «aR. 1 : 

D4 000 CLRL KEY_DISP + 1301 

FO 0032 INSV #=17 KEY_DISP, #4, CURR_PROTECTION_OR : 1302 

FO 000 INSV = #0, Key BISP, #4, CURR_PROTECTION_AND : 130 

BB 00041 PUSHR #*M<R > : 1307 

FB 00045 CALLS #2, CLISGET_VALUE : 

E9 00048 LBC : ; 

DD 00048 PUSHL KEY_DISP + 1309 

9F 00040 PUSHAB cLI-DESC : 

FB 9030 CALLS #2, PARSE_PROTECTION_VALUE : 

9F 00053 1$: PUSHAB OW : 1316 

FB $0038 CALLS #1, CCISPRESENT 3 

E9 00059 BLBC @ : 

DO 0005¢ MOVL #4. KEY_DISP : 1323 

FO 0005F INSV #1, KEYV_DISP, #4, CURR_PROTECTION_OR + 1326 

FO 00068 INSV #0, KEY_BISP, #4, CURR_PROTECTION_AND : 1325 

DD 0006 PUSHL SP : 1329 

9F 0007 PUSHAB OWNER_DESC : 

FB 007 CALLS +e CCISGET_VALUE 3 

E 0076 BLBC =s_-«aRO, 2 ; 

DD 0007 PUSHL KEY_DISP : 1331 

9F 00078 SH cLIWDESC : 

FB OO07E CALLS #2, PARSE_PROTECTION_VALUE : 

9F 00081 28: PUSHAB GR : 1338 

FB 00 CALLS #1, CCISPRESENT F 

E9 00087 BLBC : : 

D 0 A MOVL #8. KEY_DISP > 1345 

F INSV #-1, KEYV_DISP, #4, CURR_PROTECTION_OR : 1346 

F 096 INSV #0, KEY_BISP, #4, CURR_PROTECTION_AND + 1347 

pp 009¢ PUSHL SP > 1351 
F 09 PUS GROUP_DESC : 

FB OA CALLS ae GCISGET VALUE 3 

E AG LBC —OséRO, ; | 

BD A7 PUSHL. KEY_DISP : 1353. 

F OO00A9 PUSH CLIWDESC : | 
FB 9 AC CALLS #2, PARSE_PROTECTION_VALUE F 
9F OOOAF 3S: PUSHAB L : 1360 
FB 9 B CALLS #1, CCISPRESENT : | 
7 B BLBC ; 
dO 00 MOVL #12, KEY_DISP > 1367 


H 6 
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yoe~000 ai bat hy $5:9733 DISKSVMSMASTER:CCOPY.SRCICOPYCLI. B32:1) (6 6) 
66 FFFFFFFF F FO 00088 INSV #-1, KEY_DISP, #4, CURR_PROTECTION_OR 3 1368) 
046 AG ge 35 09 FS C4 INSV #0, “KEY. BISP, #4, *CURR_ PROTECTION_AND 3: 1369 
5 bo CA PUSHL p’ 3 1373 

30 A F cc PUSHAB 4 Le Est 3 

69 FB CF CALLS ISGET_VALUE 3 

8 E 0 BLBC 3 
bo D PUSHL KEY is? 3 1375. 
04 ag F D PUSHAB cp : 

6A 02 FB OOODA CALLS # Satie _PROTECTION_VALUE 3 

04 000DD 4$: RET 3 


1380. 
; Routine Size: 222 bytes. Routine Base: $CODES + 0888 
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ROUTINE PARSE_PROTECTION_VALUE( DESC : RE 
Fl ) : NOVALUE = 


ELD_LOCATIO 


Vee 
' 


FUNCTIONAL DESCRIPTION: 


This routine parse e keyword yetue given by the /PROTECTION 
r 


$s th 
qualifier. (/PROTECTION=(s:rewd 
i FORMAL PARAMETERS: 
DESC the address of a descriptor which points to the 


keyword value. ; ; 
FIELD_LOCATION the offset of the appropriate protection field 


WANAWW A. AAAI AANANA AAI 
Sean 
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: The descriptor points to only one character at a time. 


CHSF ILL 0. pscsc BLN, char_desc); 


S 
CHAR_DESCCE DSC$W_CERGTH } = 1; 


: Process the keyword value one character at a time. 
NCR INDEX FROM 0 TO .DESCC DSC$W_LENGTH J-1 DO 


ee ee a ee ed ed ed ed ed wd dd 
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i) 
| 
1 
1 
1 
t 
f 
1 
8 ! 
9 ' IMPLICIT INPUTS: 
70 38 ! 
14 : None 
Lf; 400 ! 
7 401 ! IMPLICIT OUTPUTS: 
74 $86 ! 
75 40 i bits will be set in CURR_PROTECTION_OR 
o76 404 ' 
87 405 ' ROUTINE VALUE: 
878 ret ! 
444 40 ! None 
80 408 ! 
81 409 ! COMPLETION CODES: 
6 410 ! 
8 411 ! None 
84 rh $ 
85 41 ' SIDE EFFECTS: 
86 414 4 
887 415 ! None 
888 4i¢ ! 
889 41 len 
90 418 
91 41 BEGIN 
4 420 
9 421 OCAL 
94 4 g RTN_STATUS, ! status returned from external calls 
95 4 BIT_DISP !' Location of bit to be set in protection 
% 4 4 CHAR_DESC : $BBLOCKC DSC$C_S_BLN] A descriptor 
9 4 : 
39 £58 
428 
429 
430 
? 1 
238 
4 
435 
4 
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UEtoecste GEZSED  WMLUABALRERE US? ZABaconvens.osal¥™" 
CHAR_DESCC DSCSA_POINTER }] = .DESCCE DSCSA_POINTER ] + . INDEX; 

: Look up the keyword in the keyword table. 
iF NOT (RIN_STATUS = LIBSLOOKUP_KEY( CHAR_DESC, COPYSPROT_VALUE, BIT_DISP) ) 

BEGIN 

No character match was found, signal the error and return to caller. 

PUT MESSAGE( MSG$_BADVALUE, 1, .desc ); 

RETORN; 

Clear the mask bit which corresponds to the protection attribute. 
CURR_PROTECTION_ORCprot_mask( .FIELD_LOCATION + .BIT_DISP, 1)] = NO; 


END; ! End of single character value loop. 
; ! End of routine PARSE_PROTECTION_VAL 
003C 00000 PARSE -PROTECTION VALUE : 

.W Saye R2,R3,R4,R5 : 
5E o¢ 2 000 suBL? » SP : 
be 0 000 MOVC #0." (SP), #0, #8, CHAR_DESC : 

04 AE OOOA : 

04 AE 01 80 000 MOVW #1, CHAR_DESC : 
54 04 BC 3C 0001 MOVZWL aDESC, R& : 

3g 04 AC dO 00014 MOVL DESC, R2 : 

5 01 CE 00018 MNEGL #1, INDEX F 

49 11 0001B BRB 34 : 

0B AE 04 8243 9E 901 1$: MOVAB @4(R2)CINDEX], CHAR_DESC+4 : 
5E DD 00 PUSHL SP : 

00006 CF 9F 000 PUSHAB COPYSPROT_VALUE : 

OC AE 9F 000 PUSHAB CHAR_DES ; 

000000006 99 F 0 4 CALLS #3, CIBSLOOKUP_ KEY 3 
D 9 MOVL RO. STAT s : 

19 7 LBS  RTN STATUS. : 

04 AC DD PUSHL D st : 

1 pp C PUSHL : 

7E 1114 BF 3¢ MOVZWL m372 : 

00006 1 FB 0004 CALLS #1, COpySasG. NUMBER : 
9 DD 0004 PUSHL : 

000000006 00 0 FB O06A CALLS , LIBSSTOP : 
08 AC F ¢ 0080 23 ADDL3 me ISP, of LELD LOCATION RO : 
0000' cf E BBCC ROTECTION_OR, 3$ 3 
3 4 Ff 99050 3$ AOBLSS FADE ERS i$ : 

04 00061 RET : 


Routine Base: S$CODES + 0966 


6 
1S-se 1984 7:5 X-11 Bliss sae V4.0-742 
12-808-1 8c 3: 1033 SKSVMSMASTER: CCOPY. SRCICOPYCLI.B32- 79° 
931 1459 
9 ¢ 1460 4 END 
9 1461 ELUDOM 
-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 
Name a Attributes 
SPLITS ae} eNOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SGLOBALS oN WRT, RO ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 2504 NOVEE NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
eocecee= Symbols oo------ Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBISTARLET.L32;1 9776 65 0 581 00:01.0 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:COPYCLI/OBJ=O0BJ$:COPYCLI MSRC$:COPYCLI/UPDATE=(ENH$:COPYCLI) 
pize: 2504 code + 420 data bytes 


un Time 00:41.2 
oad Time: yf 2-6 
Lines/CPU Min: 
Lexemes/CPU-Min: 2 37 
Memory Used: a6? pages 
Compi.ation Complete 


yyy 41 en 
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